home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / BOM.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  85 lines
  1. *
  2. * BOM
  3. * BILL OF MATERIALS PROCESSING
  4. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  5. * OUTER DO ALLOWS RETURN TO THIS MENU FROM A LOWER LEVEL MENU
  6. SET HEADING OFF
  7. SET SAFETY OFF
  8. SET STATUS OFF
  9. DO WHILE (1=1)
  10. SET TALK OFF
  11. SET BELL OFF
  12. CLEAR ALL
  13. STORE " " TO OPINPUT
  14. *
  15. *===============================START MODS: 1================================*
  16. * SET LEFT AND TOP MARGINS FOR MENU
  17. STORE 20 TO LEFTMARG
  18. STORE  3 TO TOPMARG
  19. *==================================END MODS==================================*
  20. *
  21. *
  22. *===============================START MODS: 2================================*
  23. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  24. DO WHILE OPINPUT<"A".OR.OPINPUT>"I"
  25.    CLEAR
  26.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  27.    @ TOPMARG+2,LEFTMARG+5 SAY ">> Production Planning System <<"
  28.    @ TOPMARG+4,LEFTMARG SAY "A. ASSEMBLY File Maintenance"
  29.    @ TOPMARG+5,LEFTMARG SAY "B. REQUIREMENTS SCHEDULE File Maintenance"
  30.    @ TOPMARG+6,LEFTMARG SAY "C. Print REQUIREMENTS SCHEDULE"
  31.    @ TOPMARG+7,LEFTMARG SAY "D. Print BILL OF MATERIALS"
  32.    @ TOPMARG+8,LEFTMARG SAY "E. Print WHERE USED Report"
  33.    @ TOPMARG+9,LEFTMARG SAY "F. Print REQUIREMENTS ANALYSIS From Schedule"
  34.    @ TOPMARG+10,LEFTMARG SAY "G. ASSEMBLY File CLEAN UP"
  35.    @ TOPMARG+11,LEFTMARG SAY "H. SCHEDULE File CLEAN UP"
  36.    @ TOPMARG+12,LEFTMARG SAY "I. Return to SYSTEM MENU"
  37.    @ TOPMARG+14,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  38.      GET OPINPUT
  39. *=================================END MODS===================================*
  40. *
  41.    READ
  42.    STORE UPPER(OPINPUT) TO OPINPUT
  43. ENDDO
  44. *
  45. *==============================START MODS: 3=================================*
  46. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  47. DO CASE
  48.    CASE OPINPUT="A"
  49.       DO ASSEMMNT
  50.    CASE OPINPUT="B"
  51.       DO SCHEDMNT
  52.    CASE OPINPUT="C"
  53.       DO SCHEDLST
  54.    CASE OPINPUT="D"
  55.       DO BOMLST
  56.    CASE OPINPUT="E"
  57.       DO WHERELST
  58.    CASE OPINPUT="F"
  59.       DO RQTSSUM
  60.    CASE OPINPUT="G"
  61.       DO AFREPACK
  62.    CASE OPINPUT="H"
  63.       DO SFREPACK
  64.    CASE OPINPUT="I"
  65.       RETURN
  66. *=================================END MODS===================================*
  67. *
  68.    OTHERWISE
  69.       CANCEL
  70. ENDCASE
  71. * REDISPLAY MENU
  72. ENDDO
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.